home *** CD-ROM | disk | FTP | other *** search
/ Cocktail / Cocktail CD.iso / scripts / select.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-10-06  |  1.2 KB  |  63 lines
  1. /* Cocktail */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS DataBase
  6. BoxFill 110 70 410 150 0
  7. Box 110 70 410 150 1000
  8.  
  9. TEXT 115 80 1 "       Es können verschiedene Suchmuster"
  10. TEXT 115 90 1 "         (wild cards) benutzt werden !"
  11. TEXT 115 100 1 ""
  12. TEXT 115 110 1 "#?      Entspricht beliebigen Text."
  13. TEXT 115 120 1 ""
  14. TEXT 115 130 3 "Rum#?"
  15. TEXT 115 140 2 "        Markiert alle Datensätze, die mit "
  16. TEXT 115 150 2 "        'Rum' beginnen."
  17. TEXT 115 160 3 "#?Rum"
  18. TEXT 115 170 2 "        Markiert alle Datensätze, die mit"
  19. TEXT 115 180 2 "        'Rum' enden."
  20. TEXT 115 190 3 "#?Rum#?"
  21. TEXT 115 200 2 "        Markiert alle Datensätze, wo das" 
  22. TEXT 115 210 2 "        Wort 'Rum' vorkommt."
  23.  
  24. RequestText "suchbegriff eingeben"
  25. if RC=5 then call end
  26.  
  27. such = RESULT
  28. if such="" then call end
  29.  
  30. MarkRange $F3 Such
  31. a = RESULT
  32. MarkRange $F5 Such
  33. b = RESULT
  34. MarkRange $F7 Such
  35. c = RESULT
  36. MarkRange $F9 Such
  37. d = RESULT
  38. MarkRange $F11 Such
  39. e = RESULT
  40. MarkRange $F13 Such
  41. f = RESULT
  42. MarkRange $F15 Such
  43. g = RESULT
  44. MarkRange $F17 Such
  45. h = RESULT
  46. MarkRange $F19 Such
  47. i = RESULT
  48. MarkRange $F21 Such
  49. j = RESULT
  50. zus = a + b + c + d + e + f + g + h + i + j
  51.  
  52. Show new
  53.  
  54. Request "_OK" " Es wurden" zus "Cocktails gefunden" 
  55. if zus=0 then EXIT
  56.  
  57. Show Marked
  58. Exit
  59.  
  60. end:
  61. Show new 
  62. exit
  63. return